home *** CD-ROM | disk | FTP | other *** search
/ PC Media 2 / PC MEDIA CD02.iso / share / prog / diamond2 / diamond.bas next >
Encoding:
BASIC Source File  |  1993-04-07  |  1.6 KB  |  52 lines
  1. CLS
  2. SCREEN 12
  3. colorx = 7
  4. main:
  5. '  DO WHILE LCASE$(INKEY$) <> "c"
  6.   FOR x = 1 TO 50
  7.     IF LCASE$(INKEY$) = "c" THEN
  8.       colorx = colorx + 1
  9.       IF colorx = 16 THEN colorx = 1
  10.     END IF
  11.     LINE (200, 0)-(200, 400), colorx
  12.     LINE (200, 200)-(150 + x, 200 - x), colorx
  13.     LINE (200, 200)-(250 - x, 200 + x), colorx
  14.     LINE (150 + x, 200 - x)-(200, 0), colorx
  15.     LINE (250 - x, 200 + x)-(200, 0), colorx
  16.     LINE (150 + x, 200 - x)-(200, 400), colorx
  17.     LINE (250 - x, 200 + x)-(200, 400), colorx
  18.     FOR n = 1 TO 300: NEXT n
  19.     LINE (200, 200)-(150 + x, 200 - x), 0
  20.     LINE (200, 200)-(250 - x, 200 + x), 0
  21.     LINE (150 + x, 200 - x)-(200, 0), 0
  22.     LINE (250 - x, 200 + x)-(200, 0), 0
  23.     LINE (150 + x, 200 - x)-(200, 400), 0
  24.     LINE (250 - x, 200 + x)-(200, 400), 0
  25.   NEXT x
  26.   FOR x = 1 TO 50
  27.     IF LCASE$(INKEY$) = "c" THEN
  28.       colorx = colorx + 1
  29.       IF colorx = 16 THEN colorx = 1
  30.     END IF
  31.     LINE (200, 0)-(200, 400), colorx
  32.     LINE (200, 200)-(200 + x, 150 + x), colorx
  33.     LINE (200, 200)-(200 - x, 250 - x), colorx
  34.     LINE (200 + x, 150 + x)-(200, 0), colorx
  35.     LINE (200 - x, 250 - x)-(200, 0), colorx
  36.     LINE (200 + x, 150 + x)-(200, 400), colorx
  37.     LINE (200 - x, 250 - x)-(200, 400), colorx
  38.     FOR n = 1 TO 300: NEXT n
  39.     LINE (200 + x, 150 + x)-(200, 0), 0
  40.     LINE (200 - x, 250 - x)-(200, 0), 0
  41.     LINE (200, 200)-(200 + x, 150 + x), 0
  42.     LINE (200, 200)-(200 - x, 250 - x), 0
  43.     LINE (200 + x, 150 + x)-(200, 400), 0
  44.     LINE (200 - x, 250 - x)-(200, 400), 0
  45.     LINE (200, 0)-(200, 400), 0
  46.   NEXT x
  47. '  LOOP
  48. '  colorx = colorx + 1
  49. '  IF colorx = 16 THEN LET colorx = 1
  50. GOTO main
  51.  
  52.